unit Usublist;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ExtCtrls;

type Tsubtitle= record
 starframe:integer;
 endframe:integer;
 text:string;
 end;

type Psubtitle =^Tsubtitle;

type Tsublist= class(Tlist)
procedure addsub(sub:Tsubtitle);
function readsub(index:integer):Tsubtitle;
end;



implementation

function Tsublist.readsub(index:integer):Tsubtitle;
var
Buffer:Psubtitle;
rezultat:Tsubtitle;
begin

Buffer:=Items[index];

rezultat:=buffer^;
asm
nop
end;
readsub:=rezultat;

end;


procedure Tsublist.addsub(sub:Tsubtitle);
var
Buffer:Psubtitle;
begin
New(buffer);
buffer^:=sub;
Add(Buffer)   ;


end;


end.
 